Sub InTrang() ' ' InTrang Macro ' Macro recorded 9/8/2008 by Quoc An ' ' Keyboard Shortcut: Ctrl+Shift+I ' ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _ :=True ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _ :=True ActiveWindow.SelectedSheets.PrintOut From:=5, To:=5, Copies:=1, Collate _ :=True ActiveWindow.SelectedSheets.PrintOut From:=7, To:=7, Copies:=1, Collate _ :=True ActiveWindow.SelectedSheets.PrintOut From:=9, To:=9, Copies:=1, Collate _ :=True ActiveWindow.SelectedSheets.PrintOut From:=11, To:=11, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=13, To:=13, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=15, To:=15, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=17, To:=17, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=19, To:=19, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=21, To:=21, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=23, To:=23, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=25, To:=25, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=27, To:=27, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=29, To:=29, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=31, To:=31, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=33, To:=33, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=35, To:=35, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=37, To:=37, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=39, To:=39, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=41, To:=41, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=43, To:=43, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=45, To:=45, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=47, To:=47, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=49, To:=49, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=51, To:=51, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=53, To:=53, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=55, To:=55, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=57, To:=57, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=59, To:=59, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=61, To:=61, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=63, To:=63, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=65, To:=65, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=67, To:=67, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=69, To:=69, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=71, To:=71, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=73, To:=73, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=75, To:=75, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=77, To:=77, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=79, To:=79, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=81, To:=81, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=83, To:=83, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=85, To:=85, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=87, To:=87, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=89, To:=89, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=91, To:=91, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=93, To:=93, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=95, To:=95, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=97, To:=97, Copies:=1, _ Collate:=True ActiveWindow.SelectedSheets.PrintOut From:=99, To:=99, Copies:=1, _ Collate:=True End Sub